module Test where
import System.Environment

x = ""
-- main :: IO () --test
-- main = do arg <- getArgs
--           putStrLn ("Hello, " ++ arg!!0)
fun :: Int -> Int -> Int
fun x y = x + y

fun1 :: Int -> Int
fun1 x = x*x

data Bi = Cc Int Int String
        | Cash
        | Inv Int
          deriving(Show)

fac :: Int -> Int
fac 0  = 1
fac 1  = 1
fac n  = fac(n-1)+fac(n-2)

fac1 :: Integer -> [Integer]
fac1 0 = [1]
fac1 1 = [1,1]
fac1 n = (sum $ take 2 ll):ll where ll = fac1 (n-1)

--vec = vec ++ [head $ fac1 $ length vec]
split_lines :: String -> [String]
split_lines [] = []
split_lines str = let (hd, rest) = break (\x -> x=='\n') str
                      in hd: case rest of
                    ('\n':'\n':rrest) -> split_lines rrest
                    ('\n':rrest) -> split_lines rrest
                    _ -> []

newtype Haha = H Int
               deriving(Show)

-- inf = [1,0]
-- inf = (sum $ take 2 inf) :inf
